home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / multip1a / frmmain.frm next >
Text File  |  1999-10-21  |  35KB  |  1,086 lines
  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  5. Begin VB.Form frmMain 
  6.    Caption         =   "Multi-User Rich Text IP Chat"
  7.    ClientHeight    =   3660
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   6045
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3660
  13.    ScaleWidth      =   6045
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.ListBox lstUsers 
  16.       BeginProperty Font 
  17.          Name            =   "Arial"
  18.          Size            =   9
  19.          Charset         =   0
  20.          Weight          =   400
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   1890
  26.       Left            =   4890
  27.       Sorted          =   -1  'True
  28.       TabIndex        =   19
  29.       Top             =   195
  30.       Width           =   1095
  31.    End
  32.    Begin MSWinsockLib.Winsock sckConnect 
  33.       Index           =   0
  34.       Left            =   6360
  35.       Top             =   3240
  36.       _ExtentX        =   741
  37.       _ExtentY        =   741
  38.       _Version        =   393216
  39.    End
  40.    Begin RichTextLib.RichTextBox rtbChat 
  41.       Height          =   1890
  42.       Left            =   75
  43.       TabIndex        =   18
  44.       Top             =   195
  45.       Width           =   4815
  46.       _ExtentX        =   8493
  47.       _ExtentY        =   3334
  48.       _Version        =   393217
  49.       Enabled         =   -1  'True
  50.       ReadOnly        =   -1  'True
  51.       ScrollBars      =   2
  52.       TextRTF         =   $"frmMain.frx":0000
  53.    End
  54.    Begin MSComDlg.CommonDialog dlgColors 
  55.       Left            =   6720
  56.       Top             =   1920
  57.       _ExtentX        =   847
  58.       _ExtentY        =   847
  59.       _Version        =   393216
  60.    End
  61.    Begin VB.CommandButton cmdColors 
  62.       Height          =   320
  63.       Left            =   3120
  64.       Picture         =   "frmMain.frx":00C1
  65.       Style           =   1  'Graphical
  66.       TabIndex        =   17
  67.       Top             =   2175
  68.       Width           =   315
  69.    End
  70.    Begin RichTextLib.RichTextBox rtbText 
  71.       Height          =   360
  72.       Left            =   0
  73.       TabIndex        =   16
  74.       Top             =   2475
  75.       Width           =   5400
  76.       _ExtentX        =   9525
  77.       _ExtentY        =   635
  78.       _Version        =   393217
  79.       Enabled         =   -1  'True
  80.       TextRTF         =   $"frmMain.frx":0403
  81.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  82.          Name            =   "Arial"
  83.          Size            =   9.75
  84.          Charset         =   0
  85.          Weight          =   400
  86.          Underline       =   0   'False
  87.          Italic          =   0   'False
  88.          Strikethrough   =   0   'False
  89.       EndProperty
  90.    End
  91.    Begin VB.CheckBox chkUnderline 
  92.       Height          =   320
  93.       Left            =   4200
  94.       Picture         =   "frmMain.frx":04C4
  95.       Style           =   1  'Graphical
  96.       TabIndex        =   15
  97.       Top             =   2175
  98.       Width           =   315
  99.    End
  100.    Begin VB.CheckBox chkItalic 
  101.       Height          =   320
  102.       Left            =   3900
  103.       Picture         =   "frmMain.frx":0806
  104.       Style           =   1  'Graphical
  105.       TabIndex        =   14
  106.       Top             =   2175
  107.       Width           =   315
  108.    End
  109.    Begin VB.ComboBox cmbFonts 
  110.       BeginProperty Font 
  111.          Name            =   "Arial"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       Height          =   330
  120.       Left            =   10
  121.       Sorted          =   -1  'True
  122.       Style           =   2  'Dropdown List
  123.       TabIndex        =   13
  124.       Top             =   2175
  125.       Width           =   3000
  126.    End
  127.    Begin VB.CheckBox chkBold 
  128.       Height          =   320
  129.       Left            =   3600
  130.       Picture         =   "frmMain.frx":0B48
  131.       Style           =   1  'Graphical
  132.       TabIndex        =   12
  133.       Top             =   2175
  134.       UseMaskColor    =   -1  'True
  135.       Width           =   315
  136.    End
  137.    Begin VB.CommandButton cmdConnect 
  138.       Caption         =   "Connect"
  139.       Height          =   405
  140.       Left            =   5070
  141.       TabIndex        =   11
  142.       Top             =   2895
  143.       Width           =   975
  144.    End
  145.    Begin VB.TextBox txtIP 
  146.       Height          =   285
  147.       Left            =   2760
  148.       TabIndex        =   10
  149.       Text            =   "localhost"
  150.       Top             =   3360
  151.       Width           =   2250
  152.    End
  153.    Begin VB.TextBox txtPort 
  154.       Height          =   285
  155.       Left            =   360
  156.       TabIndex        =   8
  157.       Text            =   "400"
  158.       Top             =   3360
  159.       Width           =   2055
  160.    End
  161.    Begin VB.OptionButton optServerClient 
  162.       Caption         =   "Client"
  163.       Height          =   195
  164.       Index           =   1
  165.       Left            =   4200
  166.       TabIndex        =   6
  167.       Top             =   2995
  168.       Value           =   -1  'True
  169.       Width           =   735
  170.    End
  171.    Begin VB.OptionButton optServerClient 
  172.       Caption         =   "Server"
  173.       Height          =   195
  174.       Index           =   0
  175.       Left            =   3360
  176.       TabIndex        =   5
  177.       Top             =   2995
  178.       Width           =   855
  179.    End
  180.    Begin VB.TextBox txtNick 
  181.       Height          =   285
  182.       Left            =   440
  183.       TabIndex        =   4
  184.       Text            =   "NickName"
  185.       Top             =   2940
  186.       Width           =   2775
  187.    End
  188.    Begin VB.CommandButton cmdSend 
  189.       Caption         =   "Send"
  190.       Height          =   335
  191.       Left            =   5400
  192.       TabIndex        =   2
  193.       Top             =   2490
  194.       Width           =   625
  195.    End
  196.    Begin VB.Frame frmeSep 
  197.       Height          =   135
  198.       Left            =   0
  199.       TabIndex        =   1
  200.       Top             =   2760
  201.       Width           =   6060
  202.    End
  203.    Begin VB.Frame frmeChatWindow 
  204.       Caption         =   "Chat Window"
  205.       Height          =   2165
  206.       Left            =   0
  207.       TabIndex        =   0
  208.       Top             =   0
  209.       Width           =   6045
  210.    End
  211.    Begin VB.Shape shpGreen 
  212.       BackColor       =   &H00008000&
  213.       BackStyle       =   1  'Opaque
  214.       BorderColor     =   &H00008000&
  215.       Height          =   255
  216.       Left            =   5640
  217.       Shape           =   3  'Circle
  218.       Top             =   3360
  219.       Width           =   255
  220.    End
  221.    Begin VB.Shape shpRed 
  222.       BackColor       =   &H000000FF&
  223.       BackStyle       =   1  'Opaque
  224.       BorderColor     =   &H000000FF&
  225.       FillColor       =   &H00000080&
  226.       Height          =   255
  227.       Left            =   5160
  228.       Shape           =   3  'Circle
  229.       Top             =   3360
  230.       Width           =   255
  231.    End
  232.    Begin VB.Label lblIP 
  233.       AutoSize        =   -1  'True
  234.       BackStyle       =   0  'Transparent
  235.       Caption         =   "IP:"
  236.       Height          =   195
  237.       Left            =   2520
  238.       TabIndex        =   9
  239.       Top             =   3390
  240.       Width           =   195
  241.    End
  242.    Begin VB.Label lblPort 
  243.       BackStyle       =   0  'Transparent
  244.       Caption         =   "Port:"
  245.       Height          =   255
  246.       Left            =   0
  247.       TabIndex        =   7
  248.       Top             =   3390
  249.       Width           =   375
  250.    End
  251.    Begin VB.Line lneSep3 
  252.       BorderColor     =   &H80000003&
  253.       Index           =   1
  254.       X1              =   5025
  255.       X2              =   5025
  256.       Y1              =   2880
  257.       Y2              =   3290
  258.    End
  259.    Begin VB.Line lneSep3 
  260.       BorderColor     =   &H00F